<!--#include file="./top.asp"-->

<%
	dim ind_subject 
	ind_subject = request.QueryString("ind_subject")
	dim rs_ind_subject, str_ind_subject
	set rs_ind_subject = server.CreateObject("Adodb.Recordset")
	str_ind_subject = "select * from " & ind_subject & " where grade = '" & request.QueryString("grade") & "'"
	
	rs_ind_subject.open str_ind_subject, conn,1 ,3
%>
<!>
<!--#include file="./list_ind_subject.asp"-->
<form action="./update_ind_subject.asp?grade=<%=request.QueryString("grade")%>&ind_subject=<%=request.QueryString("ind_subject")%>" method="post" name="frm_ind_subject">
<table border="1" width="80%">
	<tr>
  	<td>Subject: subject</td>
  </tr>
  <%
		for i = 1 to rs_ind_subject.fields.count - 1
	%>
  <tr>
  	<td><input type="text" size="150" name="rs_ind_subject_<% response.Write cstr(i) %>" value="<%=rs_ind_subject.fields(i)%>" /></td> 
  </tr>
  <%
		next
	%>
  <tr>
  	<td><input type="submit" value="Submit" /></td>
  </tr>
</table>
</form>
</body>
</html>
<%
	rs_ind_subject.close
	set rs_ind_subject = nothing
	conn.close
	set conn = nothing
%>